home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / mmedia / system / ap2 / scripts / m1_____1.p2s < prev    next >
Encoding:
Text File  |  1994-05-05  |  1.3 KB  |  53 lines
  1. ###########################################################################
  2. #
  3. # BRIEF TEST DESCRIPTION: Open, load type 1 midi file and play to
  4. # completion
  5. #
  6. ###########################################################################
  7. #
  8. #   OPEN THE MIDIPLAYER
  9. #   WAIT FOR SUCCESSFUL OPEN
  10. #
  11. ############################################
  12. #
  13. open sequencer00 alias midi1 notify
  14. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_OPEN #1
  15. @WAIT_NOTIFY 1 30000
  16. acquire midi1
  17. @WAIT_PASSDEVICE midi1
  18. #
  19. ############################################
  20. #
  21. #   LOAD AND CUE TYPE1.MID FILE
  22. #
  23. ############################################
  24. #
  25. load midi1 ?AP2PATH?type1.mid notify
  26. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_LOAD #2
  27. @WAIT_NOTIFY 2 30000
  28. acquire midi1
  29. @WAIT_PASSDEVICE midi1
  30. cue midi1 output notify
  31. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CUE
  32. #
  33. ############################################
  34. #
  35. #  play type1.mid
  36. #
  37. ############################################
  38. #
  39. play midi1 notify
  40. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PLAY #3
  41. @WAIT_NOTIFY 3
  42. #
  43. ############################################
  44. #
  45. #   CLOSE THE MIDIPLAYER AND EXPECT A
  46. #   SUCCESSFUL CLOSE
  47. #
  48. ############################################
  49. #
  50. close midi1 notify
  51. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CLOSE #4
  52. @WAIT_NOTIFY 4 30000
  53.